object ScriptForm: TScriptForm
  Left = 237
  Top = 338
  Width = 366
  Height = 291
  Caption = 'Script BC'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 358
    Height = 73
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Image1: TImage
      Left = 10
      Top = 12
      Width = 49
      Height = 49
      AutoSize = True
      Picture.Data = {<image000.bmp>}
    end
    object CurrentItem: TLabel
      Left = 72
      Top = 28
      Width = 11
      Height = 13
      Caption = '%'
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 183
    Width = 358
    Height = 74
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      358
      74)
    object BeepWhenFinished: TBCCheckBox
      Left = 10
      Top = 30
      Width = 113
      Height = 17
      Caption = 'Bip quand termin'#233
      TabOrder = 0
    end
    object CloseWhenFinished: TBCCheckBox
      Left = 10
      Top = 50
      Width = 115
      Height = 17
      Caption = 'Fermer quand termin'#233
      TabOrder = 1
    end
    object CancelBtn: TButton
      Left = 275
      Top = 42
      Width = 73
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = 'Annuler'
      TabOrder = 2
      OnClick = CancelBtnClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 73
    Width = 358
    Height = 110
    ActivePage = tsScript
    Align = alClient
    TabOrder = 2
    object tsScript: TTabSheet
      Caption = 'Script'
      object ScriptView: TListBox
        Left = 0
        Top = 0
        Width = 350
        Height = 82
        Style = lbOwnerDrawFixed
        Align = alClient
        Color = clBtnFace
        ItemHeight = 16
        TabOrder = 0
        OnDrawItem = ScriptViewDrawItem
      end
    end
    object tsLog: TTabSheet
      Caption = 'Journal (Log)'
      ImageIndex = 2
      object LogDisplay: TListBox
        Left = 0
        Top = 0
        Width = 350
        Height = 82
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object tsErrors: TTabSheet
      Caption = 'Erreurs'
      ImageIndex = 1
      object ErrorLog: TListBox
        Left = 0
        Top = 0
        Width = 350
        Height = 82
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 24
    Top = 152
  end
end